home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm3 / mcf4amrc.lha / MCF4AmIRC / Rexx / MCF_FSEND.AMIRX < prev    next >
Text File  |  1996-04-14  |  879b  |  43 lines
  1. /* MCP_FSEND.AMIRX
  2. \\ Written by Donald T. Becker (dtbecker@postoffice.ptd.net) IRC: StarDustr
  3. // Please mail any bug reports/comments to the above address with a subject
  4. \\ header of MCF.AMIRX.
  5. //
  6. \\ ** What to do with this file?
  7. // Put this script in REXX:  It will be used by MCF.AMIRX.
  8. */
  9.  
  10. arg auth Rnick junk Fnum junk
  11.  
  12. MCFenv = address()
  13. xl = pos(".", MCFenv)
  14. Client = substr(MCFenv, xl + 1)
  15. FSC = "FSERV." || Client
  16.  
  17. Flag = getclip(FSC)
  18.  
  19. if Flag = "N"                        then do
  20.     "RAW PRIVMSG "Rnick" :The File Server is not Available at this time."
  21.     exit
  22. end
  23.  
  24. ppos = pos("#", Fnum) + 1
  25. epos = pos(".", Fnum)
  26. if ppos = 1 | epos < ppos                then exit
  27.  
  28. Fcnt = substr(Fnum, ppos, epos - 2)
  29.  
  30. call open("Input", "MCF:MCF.FSend", "R")
  31.  
  32. do cnt = 1 by 1            until cnt = Fcnt
  33.     xx = readln("Input")
  34. end cnt
  35.  
  36. call close("Input")
  37.  
  38. parse value xx with xnum Fname junk
  39.  
  40. "say /DCC SEND" Rnick Fname
  41.  
  42. exit
  43.